home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / robin10.arc / ROBIN-SK.SUB < prev    next >
Encoding:
Text File  |  1987-01-05  |  2.3 KB  |  113 lines
  1. ;                   ROBIN-SK.CMD    "Round Robin Dialer"
  2. ;                                 by
  3. ;                           Samuel Smulowitz
  4. ;                          CENTURY ASSOCIATES
  5. ;                          141-04 71st Avenue
  6. ;                          Flushing, N.Y. 11367
  7. ;
  8. ;
  9. START:
  10.   GOTO SKIP1
  11. ;
  12. OK:
  13.   LOCATE 22,70
  14.   MESSAGE "[  ]   "
  15.   LOCATE 22,71
  16.   GET S9 1
  17. YN:
  18.   SWITCH S9
  19.     CASE "Y"
  20.       RETURN
  21.     ENDCASE
  22.     CASE "N"
  23.       RETURN
  24.     ENDCASE
  25.     CASE "y"
  26.       RETURN
  27.     ENDCASE
  28.     CASE "n"
  29.       RETURN
  30.     ENDCASE
  31.   ENDSWITCH
  32.   GOTO OK
  33. ;;
  34. SKIP1:
  35.   LOCATE 22,10
  36.   MESSAGE"Are there any numbers to SKIP? (Y/N) ----------------------->      "
  37.   GOSUB OK
  38.   SWITCH S9
  39.     CASE "N"
  40.     GOTO END-SKIP
  41.     ENDCASE
  42.     CASE "n"
  43.     GOTO END-SKIP
  44.     ENDCASE
  45.   ENDSWITCH
  46. SKIP-MESSAGE:
  47.   LOCATE 22,10
  48.   MESSAGE "Enter NUMBER to be SKIP'd (1 thru 8)  or 'END'                   "
  49.   LOCATE 22,57
  50.   MESSAGE "[    ]"
  51.   LOCATE 22,58
  52.   GET S9 3
  53.   SWITCH S9
  54.     CASE "END"
  55.     GOTO END-SKIP
  56.     ENDCASE
  57.     CASE "1"
  58.     LOCATE 11,25
  59.     MESSAGE "*** (Removed from DIALING LIST) ***      "
  60.     ASSIGN S1 "SKIP"
  61.     GOTO SKIP-MESSAGE
  62.     ENDCASE
  63.     CASE "2"
  64.     LOCATE 12,25
  65.     MESSAGE "*** (Removed from DIALING LIST) ***      "
  66.     ASSIGN S2 "SKIP"
  67.     GOTO SKIP-MESSAGE
  68.     ENDCASE
  69.     CASE "3"
  70.     LOCATE 13,25
  71.     MESSAGE "*** (Removed from DIALING LIST) ***      "
  72.     ASSIGN S3 "SKIP"
  73.     GOTO SKIP-MESSAGE
  74.     ENDCASE
  75.     CASE "4"
  76.     LOCATE 14,25
  77.     MESSAGE "*** (Removed from DIALING LIST) ***      "
  78.     ASSIGN S4 "SKIP"
  79.     GOTO SKIP-MESSAGE
  80.     ENDCASE
  81.     CASE "5"
  82.     LOCATE 15,25
  83.     MESSAGE "*** (Removed from DIALING LIST) ***      "
  84.     ASSIGN S5 "SKIP"
  85.     GOTO SKIP-MESSAGE
  86.     ENDCASE
  87.     CASE "6"
  88.     LOCATE 16,25
  89.     MESSAGE "*** (Removed from DIALING LIST) ***      "
  90.     ASSIGN S6 "SKIP"
  91.     GOTO SKIP-MESSAGE
  92.     ENDCASE
  93.     CASE "7"
  94.     LOCATE 17,25
  95.     MESSAGE "*** (Removed from DIALING LIST) ***      "
  96.     ASSIGN S7 "SKIP"
  97.     GOTO SKIP-MESSAGE
  98.     ENDCASE
  99.     CASE "8"
  100.     LOCATE 18,25
  101.     MESSAGE "*** (Removed from DIALING LIST) ***      "
  102.     ASSIGN S8 "SKIP"
  103.     GOTO SKIP-MESSAGE
  104.     ENDCASE
  105.     DEFAULT
  106.     GOTO SKIP-MESSAGE
  107.     ENDCASE
  108. ;
  109. END-SKIP:
  110.   EXECUTE "ROBIN.CMD"
  111. EXIT:
  112. EXIT
  113.